NCU Graphics Draw MS Sans Serif Form1 tempText tempText DotRD DotRU DotLD DotLU Text1 Courier New Circle1 1 tempShape tempLine Diamond Diamond1 Diamond1 Diamond1 Diamond1 RoundRectangle1 Line1 Rectangle1 menuFile &File menuFileNew menuFileOpen &Open... menuFileSave &Save menuFileSaveas save&As... menuFile_ menuFilePrint &Print menuFile_2 menuFileQuit &Quit menuEdit &Edit menuEditCopy &Duplicate menuEditDelete &Clear menuEdit_ menuEditBF Bring to &Front menuEditSB Send to &Back menuText &Text menuTextFont FontStyle menuTextFontName menuTextSize FontSize menuTextSize9 menuTextSize10 menuTextSize12 menuTextSize14 menuTextSize18 menuTextSize24 menuTextSize36 menuTextSize48 menuTextSize60 menuTextSize72 # menuText_ menuTextBold Font&Bold menuTextItalic Font&Italic menuTextStrikethru Font&Strikethru menuTextUnderline Font&Underline menuTool Too&l menuToolTools &ToolBox menuToolSound &Sound menuHelp &Help menuHelpAbout &About menu_file_Click menuEdit_Click menuFileQuit_Click menuHelpBubble_Click Form_Loads tools Form_MouseDown Button Shift Form_MouseMove Image1_Clickr Image1_MouseDown DragIt] Image1_MouseUpX Image1_MouseMove image Picture1_Clickl Picture1 initializeK menuFileOpen_Click: Checkedj menuHelpBubbleChecked= menuHelpBubblev Picture1_MouseDownf Picture1_MouseUp Form_DragDropM Sourceo Control/ DragX DragY Image1 Form_MouseUp Line1 Shape1 Left$ Picture1_DragDropG Width Heightz Text1_Changea Text1_KeyDown^ KeyCode Text1_KeyPresst KeyAscii Grid1_Click9 Shape Length HigthLength Heigth thenShape1 menuToolTool_Click Index switch Command1_Click toolStatus menuEditBF_Clickd Form_KeyPress Form_Click~ Label1 Caption menuEdit__Click6 menuFile__ClickO endselect Form_QueryUnload3 Cancelf UnloadMode ine10 YCase Visible QueryUnloadt Line1Array array DataLine to1000 Form_LostFocus endfor iCase CurrentLineNo CurrentNo DataRectangle Rectangle1 Rectangle Label1_ClickR DataTextM menuToolTools_Clickc menuEditCopy_Click menuHelpAbout_Click Text2_Change DataRoundrectangle Roundrectangle1 Text1] TextLine1 menuToolSound_ClickY menuToolSoundj menuToolSoun menuTextBold_Click. menuToolSize5_ClickE menuTextItaly_ClickG menuToolSize24_Clickk Dot2_Click DataCircle Circle1 TopThen DisableTool] toolPointerOFF toolPointerON sleep delay Form_GotFocusX ine1Curremt' Dot2! Dot1_Click Dot1_MouseDown Dot1_MouseMove ThenDragX mousedown Screenu MousePointer mouse hind7 hindmouse Dot1_MouseUp moveDot1A Dot2_MouseDown Dot2_MouseUpl Dot2_MouseMoveR Dot1_GotFocus DotLeftDown_Click DotLeftUp_Click Left0) YLine1 Dot1_LinkOpen Dot1_LostFocus DotLeftUp_MouseMove DotRightDown_Click) DotRightUp_Click DotRightUp_MouseMove DotRightDown_MouseMove8 DotLeftDown_MouseMove SelectObject[ seletcQ seletct ThenCaseK DotRU_ClickZ DotRU_MouseMovem DotLD_Click| DotLD_MouseMove DotLU_Click DotLU_MouseMoveo DotRD_Click DotRD_MouseMove DotLU DotLD3 DotRU DotRD CurrnetNo ElseScreen DotLU_MouseDown Captain Label2X Label3 label4 ShiftX ShiftYe hirghtW Yx2Rectangle1 DragYY tempShape DotMove Four_DotMove TShape Four_DotMoveInShape6 Four_DotMoveOnShape InitNewShape Label2_Clicky ShapeInitNew Four_DotMoveOn ShapeToFourDotMove InitNew( FourDotMove Shape_FourDotMove Form_ShapeInitNewV Y_RDf X_LUn thenRectangle1G ShapeLUZoom^ SingleX DotLU_Change! DotLD_MouseDown4 DotRD_MouseDownL DotRU_MouseDown ShapeLDZoom Y_LDk ectangle1 ShapeRUZoom ShapeRDZoomC DotLD_MouseUp SlectObject DotLU_MouseUp DotRD_MouseUp DotRU_MouseUp DotAllHide Enable Enabled TextToolstatus] text2 Texti test1 Keypress KeyDownL KEY_ENTER KEY_RETURN KEY_ESCAPE Form_Paint Text1_GotFocus Label4_ClickQ Text1_' GotFocus ThenSelectObject TextNo IntegerDimu pointer9 Form_ActivateL Form_Deactivate SelStarty menuEditDelete_Click thenText1 MaxText MaxLine MaxRectangle MaxRoundrectangleA MaxCircle RoundRectangle4 DateLine8 SelectOjecta MaxDiamondw DataDiamondg Line2* Form_DragOver State Diamond Diamond1p DiamondDraw BackColorj menuToolSize12_Click Form_DblClick SelectNo SelectX selectY CheckSelect CheckMouseDown nexti andIf ThenXL X2ElseO ElseXRG Line_TwoDotMovem Circlee1 Drag2 menuEditCut_Click utton Form_KeyDowny menuEditG menuEditDelete% wnabled shortcut Text1_LostFocus Form_LinkClose label5; ext1# Visiblaw menuToolSize20_Click FontSizeS FontBlodV FontBold FontItalic Texct1 menuTextLeft_Clicku Alignment menuTextRight_Click menuTextCenter_Click menuTextFont_Click menuTextBold% CheckZ menuTextItaly; menuTextStrikethru_Click menuTextStrikethru menuTextUnderline_Click menuTextUnderline StrikethruI FontStrikethruD FontUnderlinei menuTextItalic menuTextItalic_Click menuEditSB_Click TextAttrib TextBox electg TextAssign' TextDuplicate DuplicateText FontName DuplicateLine| BorderColor BorderStyle BorderWidth Y2DL1 menuFileSave_Click TrueEndh UntilIf= tempTextZ extNo menuEditBF tempLine temptempLine} DuplicateShape+ menuTextFontName_Click8 CallDiamond` DrawDiamond DataDiamon menuFileNew_Click menuToolSize7_Click menuToolSize36_Click menuToolSize48_Click menuToolSize60_Click menuToolSize72_Click" menuToolSize9_Click: menuToolSize14_ClickP menuToolSize_Clicke menuToolSize10_Clicky FontsH FontCount printer} Form_LinkOpen menuTextFontNamez tempString( menuTextFioontName2 MaxFont sortU CheckNext_FontName CheckNextFontName dalse TextFontm menuText file( menuFileSaveas_Clicki tempText_Change menuToolSize18_Click menuTool_Click menuTextSize_Click menuTextSize10_Click menuTextSize12_Click menuTextSize14_Click0 menuTextSize18_ClickH menuTextSize20_Click` menuTextSize24_Clickx menuTextSize36_Click menuTextSize48_Click menuTextSize60_Click menuTextSize7_Click menuTextSize72_Click menuTextSize9_Click A_filenameG menuText__Click< Style PointerStyle PointerWidth Rectanglend1e toolTextOFFy toolTextON toolRectangleOFF toolRectangleON toolRoundRectangleOFF toolRoundRectangleON toolCircleOFF toolCircleON toolDiamondOFF toolDiamondON% toolLineOFFR toolLineON CheckMouseDownInClientArea FileNum tempStr tempStrEnd ERR_DRIVE Dir1= Drive1 Drive Label_Dir ERR_SAVE OVER_SAVE CurPath tempInt NumLine NumText Outpiut EndOfFile menuFilePrint_Click ERR_LOAD OVER_LOAD X1Line1p ThenWrite Rorectangle1 Rrectangle1 ChrDir SaveOrLoad FileSave label6 temp_filename menuText_Click errot ERR_PRN form_deactive Form_deactived Form_deactivative aboutb CheckMouseDown pointer Check Text Check Line Change tools.PointerStyle & tools.PointerWidth Check Diamond diamond Change tools.PointerStyle & tools.PointerWidth Check Circle circle Change tools.PointerStyle & tools.PointerWidth Check RoundRectangle roundrectangle Change tools.PointerStyle & tools.PointerWidth Check Rectanglet rectangle Change tools.PointerStyle & tools.PointerWidth Dot1_MouseDown Dot1_MouseMove Dot1_MouseUp Dot2_MouseDown Dot2_MouseMove Dot2_MouseUp DotLD_MouseDown rectangle roundrectangle circle diamond DotLD_MouseMove Y_LD X_RU Y_RU rectangle Y_LD X_RU Y_RU roundrectangle Y_LD X_RU Y_RU circle Y_LD X_RU Y_RU diamond Y_LD X_RU Y_RU DotLD_MouseUp rectangle roundrectangle circle diamond DotLU_MouseDown DotLU_MouseMove Y_LU X_RD Y_RD rectangle Y_LU X_RD Y_RD roundrectangle Y_LU X_RD Y_RD circle Y_LU X_RD Y_RD diamond Y_LU X_RD Y_RD DotLU_MouseUp DotRD_MouseDown DotRD_MouseMove Y_LU X_RD Y_RD rectangle Y_LU X_RD Y_RD roundrectangle Y_LU X_RD Y_RD circle Y_LU X_RD Y_RD diamond Y_LU X_RD Y_RD DotRD_MouseUp DotRU_MouseDown DotRU_MouseMove Y_LD X_RU Y_RU rectangle Y_LD X_RU Y_RU roundrectangle Y_LD X_RU Y_RU circle Y_LD X_RU Y_RU diamond Y_LD X_RU Y_RU DotRU_MouseUp DuplicateLine DuplicateShape DuplicateText Form_Click Form_DblClick Check text to textedit textedit Form_Deactivate textedit pointer Form_DragDrop Form_Load - Initialize status pointer pointer untitled.erm NCU Graphics Draw ( - menuTextFontName Initialize Form_MouseDown pointer textedit rectangle roundrectangle circle diamond Form_MouseMove pointer pointer rectangle roundrectangle circle diamond rectangle roundrectangle circle diamond Form_MouseUp pointer textedit pointer pointer Case "textedit": rectangle roundrectangle circle diamond Line_TwoDotMove menuEditBF_Click rectangle roundrectangle circle diamond menuEditCopy_Click rectangle roundrectangle circle diamond menuEditDelete_Click rectangle roundrectangle circle diamond pointer menuEditSB_Click rectangle roundrectangle circle diamond menuFileNew_Click menuFileOpen_Click menuFilePrint_Click Printer setting error, please check printer connection Printer Error menuFileQuit_Click --- Quit this program --- menuFileSave_Click menuFileSaveas_Click Save As menuHelpAbout_Click menuTextBold_Click pointer menuTextFontName_Click pointer menuTextItalic_Click pointer menuTextSize10_Click pointer menuTextSize12_Click pointer menuTextSize14_Click pointer menuTextSize18_Click pointer menuTextSize24_Click pointer menuTextSize36_Click pointer menuTextSize48_Click pointer menuTextSize60_Click pointer menuTextSize72_Click pointer menuTextSize9_Click pointer menuTextStrikethru_Click pointer menuTextUnderline_Click pointer menuToolSound_Click menuToolTools_Click Shape_FourDotMove ShapeInitNew ShapeLDZoom ShapeLUZoom ShapeRDZoom ShapeRUZoom Text1_KeyPress KEY_ESCAPE TextAttrib Set menuTextFontName to current TextFont